; Simplify internal defun

* which-key.el (which-key--rotate):
Simplify code slightly.

Co-authored-by: Philip Kaludercic <philipk@posteo.net>

diff --git a/which-key.el b/which-key.el
index 0c38a1a1bc8a378aaa1045b909422f921464e232..660ff228019313cfa6058ceebf671d60a480f448 100644 (file)
--- a/which-key.el
+++ b/which-key.el
@@ -729,9 +729,8 @@ Used when `which-key-popup-type' is frame.")
 
 (defun which-key--rotate (list n)
   (let* ((len (length list))
-         (n (if (< n 0) (+ len n) n))
-         (n (mod n len)))
-    (append (last list (- len n)) (butlast list (- len n)))))
+         (n (- len (mod n len))))
+    (append (last list n) (butlast list n))))
 
 (defun which-key--pages-set-current-page (pages-obj n)
   (setf (which-key--pages-pages pages-obj)